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1.  PURPOSE 


The  purpose  of  the  ELF  Biological  Effects  Literature  Data  Base  Management 
System  is  to  store  bibliographic  information  related  to  published  documents  on 
the  subject  and  provide  an  automated,  rapid  response  retrieval  system  for  use 
by  interested  parties. 


2.  FUNCTIONAL  REQUIREMENTS 


•  Store  bibliographic  information  on  ELF  biological  effects 

•  Provide  reports: 

-  Standard  report  of  the  current  information  in  any  selected 
record 

-  Summary  report  (file  number,  author,  date,  language, 
subject  category,  and  title). 

•  Provide  sorting  and  selection  feature  for  reports  and  dis¬ 
plays. 

•  Provide  appropriate  back-up  data  protection. 

•  Provide  menu-driven  functions  for: 

-  Data  entry 

-  Report  generation 

-  Sorting  and  selection  features 

-  Data  display. 
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3.  SYSTEM  IMPLEMENTATION 


3.1  HARDWARE 

The  system  utilizes  an  IBM  PC  XT,  a  video  monitor,  and  a  dot  matrix 
printer  (EPSON  FX-100).  In  general,  the  hardware  requirements  for  the  dBASE 
III  software  are: 

•  An  8086  or  8088  based  microprocessor  system  (such  as  the  IBM 
PC,  NEC  APC,  etc.)  with  CP/M-86  or  MSDOS  operating  systems 

•  256K  bytes  minimum  of  memory 

•  One  or  more  mass  storage  devices  (usually  floppy  or  hard  disk 
drives) 

•  A  cursor-addressable  CRT  if  full-screen  operations  are  to  be 
used 

•  An  optional  text  printer  (for  some  commands). 


3.2  SOFTWARE 

The  data  base  uses  Ashton-Tate  dBASE  III  Software.  dBASE  III  is  a  data 
base  management  tool  that  allows  easy  manipulation  of  small-  and  medium-sized 
data  bases  using  English-like  commands.  dBASE  III  can: 

•  Create  complete  data  base  systems 

•  Easily  add,  delete,  edit,  display,  and  print  data  from  a  data 
base,  with  a  minimum  of  data  duplication  on  file 

•  Gain  a  large  measure  of  program/data  independence  so  that 
when  data  are  changed,  programs  are  not  changed,  and  vice- 
versa 

•  Generate  reports  from  one  or  more  data  bases  and  automati¬ 
cally  do  multiplication,  division,  subtotals,  totals,  and 
other  data  manipulation 

•  Use  full-screen  editing  capability  to  set  up  a  screen  format. 

Some  dBASE  III  specifications  of  interest  to  this  application: 

Records  per  data  base  file:  109 

Characters  per  record:  4000 

Fields  per  record:  128 

Characters  per  field:  254  maximum. 
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In  addition,  the  dBASE  III  Screen  Editor  is  used  to  generate  report  and 
display  formats.  Screen  Editor  is  a  program  to  simplify  screen  displays  and 
report  formats  for  dBASE  III.  Screen  Editor  automatically  generates  dBASE  III 
command  files  from  the  screen  displays  created  by  the  user  on  a  monitor  with 
Screen  Editor  in  the  format  mode. 
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4.  DATA  BASE  DESCRIPTION 


4.1  DATA  REQUIREMENTS 

In  general,  the  data  required  to  accomplish  the  ELF  data  base  management 
system  functions  include: 

•  Publication  data--author ,  title,  date,  language,  etc. 

•  Keywords--subject  categories,  endpoints,  and  species 

•  ELF  library  index  number. 

Fifty-two  fields  of  information  have  been  defined.  The  standard  report 
format,  with  the  width  of  data  fields  indicated  by  X's,  is  illustrated  in 
Figure  1.  A  sample  report  is  illustrated  in  Figure  2,  and  a  summary  report 
sample,  which  displays  12  records  on  an  11  x  17  in.  page,  is  illustrated  in 
Figure  3. 

4.2  FIELD  STRUCTURE 

The  name  of  the  data  base  primary  file  is  ELFS.  The  ELFS  field  structure 
is  given  in  Table  1,  which  shows  the  field  number,  field  name,  width,  and 
description  for  each  field. 

4.3  SYSTEM  DESIGN 

The  design  of  the  data  base  system  is  illustrated  in  Figure  4,  which 
shows  a  data  flow  diagram  for  the  ELF  data  base  management  system.  There  are 
three  basic  inputs:  field  definition,  input  data,  and  display  and  report 
requirements.  The  dBASE  III  program  generates  the  ELFS  file  (ELFS. DBF)  and 
provides  data  storage  and  manipulation.  In  addition,  programs  are  written  by 
the  user  for  display  and  report  command  files.  The  Screen  Editor  is  used  to 
generate  format  files  for  displays  and  reports  that  act  as  subprograms  in  the 
user-generated  programs.  These  program  command  files  generate  the  displays 
and  reports  with  data  transferred  from  the  data  base  file.  Special  file  names 
are  given  to  data  base  and  command  files  by  dBASE  III.  These  are  automatic 
extensions  to  the  name  of  the  file  given  by  the  user.  A  data  base  file  has 
the  extension  (.DBF)  and  a  command  file  has  the  extension  ( . PRG ) . 
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Field  Name 


Width 


Description 


23-52  ENDPT1 


Input  Data 


FIGURE  4.  ELF  BIOLOGICAL  EFFECTS  LITERATURE 

DATA  BASE  MANAGEMENT  FLOW  DIAGRAM. 


5.  SYSTEM  OPERATIONS 


5.1  BASIC  OPERATIONS 

The  basic  operations  of  the  system  are: 

•  System  start-up 

•  Data  entry 

•  Screen  display 

•  Report  generation 

•  Record  selection  for. displays  or  reports 

•  Editing. 


5.2  SYSTEM  START-UP 

The  dBASE  III,  Screen  Editor,  and 
the  IBM  PC  XT  hard  disk  in  a  directory 
accessed  by  using  the  operating  system 
followed  by  giving  the  command  dBASE. 
given.  This  means  that  dBASE  is  ready 


ELF  data  base  programs  are  stored  on 
called  DBASE3.  The  directory  is 
to  change  to  that  directory.  This  is 
The  dBASE  prompt  (.)  will  then  be 
to  receive  an  instruction. 


5.3  ELF  DATA  BASE  OPERATIONS 

For  normal  operations  a  command  program  called  ELF  (ELF.PRG)  is  utilized 
for  data  entry,  displays,  and  report  generation.  This  program  is  accessed  by 
giving  dBASE  a  command  (DO  ELF).  The  screen  display  (data  base  menu) 
illustrated  in  Figure  5  will  appear  on  the  monitor.  The  menu  choices  are: 


(0) 

Return  to  System 

Returns  to  DOS  in  the  DBASE3 
Directory. 

(1) 

Return  to  dBASE 

Exits  from  the  ELF  command  program 
and  returns  to  dBASE. 

(2) 

Print  Summary  Report 

Prints  selected  records  in  the 
summary  report  format,  on  11  x 
17-in.  paper  with  condensed  print. 

(3) 

Print  Standard  Report 

Prints  selected  records  in  the 
summary  report  format  on  8-1/2  x 
11-in.  paper  with  condensed  print. 

IIT  RESEARCH  INSTITUTE 


10 


IITRI  E06549-20 


ELF  BIOLOGICAL  EFFECTS  LITERATURE 
DATABASE  MENU 


0  =  RETURN  TO  SYSTEM 

1  =  RETURN  TO  dBASE 

2  =  PRINT  SUMMARY  REPORT 

3  =  PRINT  STANDARD  REPORT 

4  =  DISPLAY  RECORDS 

5  =  ADD  DATA 


CHOOSE  OPTION  AND  ENTER  NUMBER 


FIGURE  5.  ELF  DATA  BASE  MAIN  MENU. 
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(4)  Display  Records  Displays  selected  records  on  the 

monitor . 

(5)  Add  Data  Initiates  data  entry  mode  for  new 

records. 

The  option  selected  is  entered  by  striking  the  appropriate  number  key  and 
the  return  key. 

5.2.1  Data  Entry  Mode  (Option  5) 

When  Option  5  is  selected,  the  monitor  will  display  the  following 
message: 


TYPE  S  TO  STOP  DATA  ENTRY 
PRESS  ANY  KEY  TO  CONTINUE... 

This  message  will  be  followed  by  three  successive  data  entry  screens  (see 
Figures  6,  7,  and  8),  on  which  the  X's  indicate  field  widths.  Data  are 
entered  in  sequence.  On  any  data  entry  screen,  transfer  from  one  field  to  the 
next  is  accomplished  by  striking  the  return  key.  Transfer  from  one  data  entry 
screen  to  the  next  may  be  accomplished  at  any  point  by  striking  (CTRL-W). 

5.2.2  Report  Generation  (Options  2  and  3) 

When  either  Option  2  or  Option  3  is  selected,  the  monitor  will  display 
the  following  message: 

DO  YOU  WANT  TO  SELECT  RECORDS  (Y  OR  N) 

If  the  user  strikes  N,  he  will  be  instructed  to: 

ENTER  FILE  NAME  TO  BE  USED 

Normally,  the  user  would  enter  ELFS,  but  he  may  enter  a  secondary  file  that 
has  been  derived  from  ELFS  by  sorting  or  other  means.  He  will  then  be  given 
the  message: 


READY  PRINTER.  HIT  SPACE  BAR  TO  PRINT. 
PRESS  ANY  KEY  TO  CONTINUE... 
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FIGURE  6.  DATA  ENTRY  SCREEN  NO.  1. 
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FIGURE  7.  DATA  ENTRY  SCREEN  NO.  2. 
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FIGURE  8.  DATA  ENTRY  SCREEN  NO.  3. 
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When  Option  4  is  chosen,  the  user  will  be  prompted  as  in  Section  5.2.2, 
except  that  the  records  will  be  successively  displayed  on  the  monitor  rather 
than  printed. 

5.2.4  Select  Records 

If  Options  2,  3,  or  4  are  chosen,  the  user  may  select  records  from  ELFS 
and  generate  a  secondary  data  base  that  contains  the  selected  records.  If  the 
user  responds  Y  to  the  prompt  DO  YOU  KANT  TO  SELECT  RECORDS  (Y  OR  N),  the 
selection  menu  (see  Figure  9)  will  be  displayed.  The  user  may  search  in  six 
different  categories. 

5.2.5  Editing 

Record  editing  is  accomplished  utilizing  the  normal  dBASE  III  edit 
command. 

5.2.6  Special  Operations 

There  is  one  special  operation  that  will  normally  be  utilized,  backing  up 
the  ELFS  data  base  file  on  floppy  disks.  Back-up  floppy  disk  storage  is 
provided  by  utilizing  the  dBASE  III  COPY  command  to  create  temporary  files 
containing  100  records  and  using  these  files  to  copy  from  the  hard  disk  to  the 
floppy  disks.  Storing  100  records  on  a  floppy  disk  utilizes  approximately  70% 
of  the  space  available  on  the  disk. 

Other  special  operations  may  be  perforr  utilizing  the  full  power  of  the 
dBASE  III  command  set.  Examples  of  these  would  be  creating  secondary  data 
bases,  such  as  one  sorted  alphabetically  by  author  or  numerically  by  ELF 
library  number. 

The  specific  procedures  for  these  operations  are  given  in  Section  6. 
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***  SEARCH  CATEGORIES  *** 


1  =  INDEX  NUMBER 

2  =  AUTHOR 

3  =  SUBJECT  CATEGORY 

4  =  TITLE 

5  =  SPECIES  -  KEY  WORDS 

6  -  END  POINT  -  KEY  WORDS 


SELECT  ONE  SEARCH  CATEGORY  AT  A  TIME 


ENTER  THE  NUMBER  OF  THE  SEARCH  CATEGORY 


FIGURE  9.  SEARCH  SELECTION  MENU. 
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6.  DETAILED  PROCEDURES 


The  procedures  described  in  detail  below  are  summarized  on  the  command 
card  in  Appendix  A. 

6.1  SYSTEM  START-UP 

The  system  should  be  booted-up  with  the  hard  disk  as  the  default  drive. 
Upon  receipt  of  the  system  prompt: 


C> 


enter  the  change  directory  command. 

C>CD\DBASE3 


Call  up  DBASE  III  by  entering 


ODBASE 

and  the  following  will  appear  on  the  screen 

dBASE  III  Version  1.10  IBM/MS  DOS*** 
followed  by  the  copyright  statement 

Copyright  (C)  1984,  Ashton-Tate  Inc.  (etc.) 
and  the  DBASE  prompt 
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The  period  is  the  dBASE  III  prompt.  It  means  that  dBASE  is  ready  to 
accept  commands.  If  problems  are  encountered  and  the  user  wants  to  stop 
whatever  dBASE  III  is  doing,  the  escape  key  will  return  the  system  to  the 
dBASE  III  prompt. 

6.2  MAIN  MENU 

In  response  to  the  dBASE  prompt 


enter 


DO  ELF 

and  follow  the  menu  instructions  from  there. 

6.3  EDITING 

This  is  accomplished  by  selecting  the  data  base  file  to  be  edited, 
normally  ELFS,  by  giving  the  following  commands  in  response  to  the  dBASE 
prompt : 

Select  data  base  to  edit: 


.  USE  ELFS 


Select  Record  to  Edit: 


.  EDIT  N 

where  N  is  the  record  number.  The  editing  mode  is  exited  by  striking 

CRTL-H 
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6.4  MAIN  DATA  BASE  FILE  BACK-UP  PROCEDURE 

The  back-up  procedure  copies  records,  in  groups  of  100,  to  floppy  disks 
on  Drive  A.  A  temporary  file  is  created  on  the  hard  disk  (Drive  C)  and  then 
copied  to  Drive  A.  In  general,  while  in  DBASE,  issue  the  following  commands 

.  USE  ELFS 

.  COPY  TO  TEMPX  FOR  RECNO( )>N.AND.RECNO( )<=M 

For  x  =  1,  2,  3,  etc.,  the  back-up  floppy  disks 
N  =  beginning  record  # 

M  =  ending  record  # 

If  the  file  already  exists,  the  following  message  will  be  displayed: 

TEMPX. DBF  already  exists,  overwrite  it?  (Y/N) 

Strike  Y  and  dBASE  will  then  create  a  secondary  file  containing  100  records. 
Then  exit  dBASE  by  giving  the  command: 


.  QUIT 

Check  to  see  if  the  temporary  file  is  on  C: 

ODIR 

The  file  should  be  listed  in  the  directory  display. 
Place  a  disk  in  A  and  give  the  DOS  command 

OCOPY  TEMPX. DBF  A: 

This  will  copy  the  file  to  the  A  disk. 
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Check  to  see  if  the  back-up  file  is  on  A: 


ODIR  A: 


For  example,  to  create  three  temporary  files,  issue  the  following  commands: 


.  USE  ELFS 

.  COPY  TO  TEMPI  FOR  RECNO()<=100 
.  COPY  TO  TEMP2  FOR  RECN0( )>100.AND.RECN0( )<=200 
.  COPY  TO  TEMP3  FOR  RECNO( )>200.AND.RECN0( )<*300 
.  QUIT 

Follow  this  by  the  copy  procedure  to  disk  A. 

6.5  FINDING  A  RECORD  BY  INDEX  NUMBER 

.  USE  ELFS 

.  DISPLAY  RECNO()  FOR  ELFNUM  +*#####' 

6.6  SORTING  ALPHABETICALLY 


.  USE  ELFS 

.  SORT  TO  AUTHTEMP  ON  AUTHOR 

A  new  file,  AUTHTEMP,  will  be  created  in  alphabetical  order  by  author. 
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7.  COMMAND  PROGRAMS 


A  series  of  command  programs  has  been  prepared  to  provide  dBASE  III 
control  of  the  primary  data  base  functions.  These  programs  are  listed  below; 
printouts  of  the  complete  command  ( .PRG)  programs  are  given  in  Appendix  B. 

File  Name 

ELFS.DBF 
ELF. PRG 
ELFSEL.PRG 
ELFDATA.PRG 
ELFSUM.PRG 
ELFSTAN.PRG 
ELFDISP.PRG 
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Primary  data  base  file 
Main  menu 

Sort  selection  menu 
Data  entry  program 
Prints  summary  report 
Prints  standard  reports 
Displays  records 
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ELF  DATA  BASE  COMMAND  CARD 


SYSTEM  START-UP  and  EXIT 

Change  directories 
C>CD\DBASE3 
Call  up  dBASE  III 

ODBASE 

Select  a  data  base  file 

.  USE  FILENAME 

Select  a  record 

.  GOTO  N 

(N  is  record  number) 

Exit  dBASE  III 

.  QUIT 

SPECIAL  FUNCTIONS 
Back-up  Procedure 
.  USE  ELFS 

.  COPY  TO  TEMPX  FOR  RECNO( )>N.AND  RECNO()<=M 
.  QUIT 

OCOPY  TEMPX. DBF  A: 

Find  a  record 
.  USE  ELFS 

.  DISPLAY  RECNOO  FOR  ELFNUM  +'#####' 

Sort  alphabetically 

.  USE  ELFS 

.  SORT  TO  AUTHTEMP  ON  AUTHOR 

I  IT  RESEARCH  INSTITUTE 
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DATA  BASE  COMMANDS 

ELF  data  base  menu 
.  DO  ELF 
Edit 

.  USE  ELFS 
.  EDIT  N 

(N  is  record  number) 

Delete  a  record 

.  DELETE  N 
.  PACK 

(N  is  record  number) 


ELF.PRG 
MAIN  MENU 
(page  1  of  2) 


*  ELF.F'RG  This  is  the  main  menu  -for  the  ELF  LITERATURE 
♦DATABASE. 

*  7/9/85  lmk 
DO  WHILE  .T. 

CLEAR 

SET  TALK  OFF 
SET  ECHO  OFF 

ELF  BIOLOGICAL  EFFECTS  LITERATURE" 
?"  DATABASE  MENU" 


0  =  RETURN  TO  SYSTEM" 

1  =  RETURN  TO  dBASE" 

2  =  PRINT  SUMMARY  REPORT" 

3  =  PRINT  STANDARD  REPORT" 

4  -  DISPLAY  RECORDS" 

5  =  ADD  DATA" 


ACCEPT  "CHOOSE  OPTION  AND  ENTER  NUMBER 


TO  CHOICE 


IF  CHO I CE= " 0 " 

QUIT 
END  IF 

IF  CHO I CE= " 1  " 

RETURN 
END  I F 

IF  CHO 1 CE= " 2 " . OR. CH01CE="3 " . OR. CH0ICE="4" 

CLEAR 

ACCEPT  "DO  YOU  WANT  TO  SELECT  RECORDS  (  Y  or  N)  ”  TO  SEARCH 
IF  SEARCH="N" . OR. SEARCH="n " 

ACCEPT  "ENTER  FILE  NAME  TO  BE  USED  "  TO  NAME 
USE  ScNAME 
END  IF 

I F  SEARCH= " Y " . OR . SEARCH^ " y " 

DO  ELFSEL 
IF  RECNOO  :  1 
GO  TOP 

DO  WHILE  .NOT. EOF O 
STORE  el-fnum  TO  CHECK 
SK  I F 

IF  el  -f  num-  '  ?<CHECL  ' 

DELETE 
END  I F 
ENDBO 
FAC  I 

GO  BOTTOM  I  IT  RESEARCH  INSTITUTE 
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ELF.PRG 
MAIN  MENU 
(page  2  of  2) 


' . OR. SEARCH="N" . OR. SEARCH="n " 


END  IF 
END  IF 

IF  title>  ’  '  .  OR.  el  -f  num> 

IF  CH0ICE="2" 

DO  ELFSUM 
ENDIF 

IF  CHOICE=" 3" 

DO  ELFSTAN 
ENDIF 

IF  CH0ICE="4" 

DO  ELFDISP 
ENDIF 

IF  FILE  <  '&FILE.  .DBF  '  >=.T. 


ACCEPT  "DO  YOU  W^MT  TO  SAVE  THE  FILE  WHICH  CONTAINS  THE  SELECTED 
RECORDS  <Y  or  N)  "TO  SAVE 
IF  SAVE  = " Y " . OR .  SAVE  =  "  y  " 

CLOSE  DATABASES 
ELSE 

CLOSE  DATABASES 
ERASE  &FILE. . DBF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

IF  CHO I CE= " 5 " 

USE  ELFS 
DO  ELFDATA 
ENDIF 
ENDDO 
ENDDO 
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ELFSEL.PRG 

SORT  SELECTION  PROGRAM 
(page  1  of  4) 


*  ELFSEL.PRG  This  program  allows  the  user  to  perform  searches:. 
STORE  "  "  TO  LOGIC 

STORE  "ELF3"  TO  NAME 

ACCEPT  "FILE  NAME  TO  STORE  THE  SELECTED  RECORDS  IN.  "  TO 
FILE 

DO  WHILE  SEARCH= " Y " . OR . SEARCH= " y " 

CLEAR 
USE  ?<NAME 


***  SEARCH  CATEGORIES  ***" 


1 

= 

INDEX  NUMBER" 

II 

AUTHOR" 

n  n 

3 

= 

SUBJECT  CATEGORY" 

•n  ii 

4 

= 

TITLE” 

ii 

5 

= 

SPECIES  -  KEY  WORDS" 

r-y  ii 

6 

END  POINT  -  KEY  WORDS" 

O  •* 

SELECT  ONE 

SEARCH  CATEGORY  AT  A  TIME" 

ACCEPT  "ENTER 

THE 

NUMBER  OF 

THE  SEARCH  CATEGORY  "  TD  NUM 

IF  NUM=" 1 " 

COPY  STRUCTURE 

TO 

TEMP  FIELDS 

ELFNUM 

USE  TEMP 
APPEND 
SELECT  A 
USE  TEMP 
SELECT  E 
USE  S/NAME 

JOIN  WITH  TEMP  TO  TEMPI  FOR  ELFNUM=TEMP- >ELFNUM 
CLOSE  DATABASES 
USE  TEMPI 

IF  F I LE  (  " TEMF'2 .  DBF "  )  =  .T. 

ERASE  TEMF'2.  DBF 
END  IF 

ERASE  TEMP. DBF 
END  IF 
IF  NUM= " 2 " 

CLEAR 


ACCEPT  "ENTER  AUTHOR ’ S  NAME  :  "  TO  A 

COPY  STRUCTURE  TO  TEMP 

USE  TEMP  NT  RESEARCH  INSTITUTE 


B-3 


IITRI  E06549-20 


ELFSEL.PRG 

SORT  SELECTION  PROGRAM 
(page  2  of  4) 


APPEND  FROM  &NAME  FOR  Afauthor 
USE 

RENAME  TEMP. DBF  TO  TEMPI. DBF 
USE  TEMPI 

f-\ 

ACCEPT  "DO  YOU  WANT  TO  ENTER  ANOTHER  AUTHOR'S  NAME  (  Y  or  N  > 

"  TO  PICK 

DO  WHILE  PICK=" Y" . OR. PICK="y" 

CLEAR 

ACCEPT  "ENTER  AUTHOR'S  NAME  :  "  TO  A 

APPEND  FROM  S/NAME  FOR  Atauthor 

ACCEPT  "DO  YOU  WANT  TO  ENTER  ANOTHER  AUTHOR'S  NAME  (  Y  or  N) 

"  TO  PICK 
ENDDO 
ENDIF 
IF  NUM="3" 

COPY  STRUCTURE  TO  TEMP  FIELDS  SUBCAT  1 

SELECT  B 

USE  TEMP 

APPEND 

SELECT  A 

USE  ?*NAME 

JOIN  WITH  TEMP  TO  TEMPI  FOR 

SUBCAT I =B~ >SUBCAT 1 . OR. SUBCAT2=B- >SUBCAT 1 . OR. SUBCAT3=B->SUBCAT1 

CLOSE  DATABASES 

USE  TEMPI 

ERASE  TEMP. DBF 

IF  FILE  < "TEMP2. DBF" )  .T. 

ERASE  TEMP2 
ENDIF 
ENDIF 
IF  NUM= " 4 " 

CLEAR 


ACCEPT  "ENTER  TITLE  "  TO  A 
COPY  STRUCTURE  TO  TEMP 
USE  TEMP 

APPEND  FROM  &NAME  FOR  Aftitle 
USE 

RENAME  TEMP. DBF  TO  TEMPI. DBF 
USE  TEMPI 

ACCEPT  "DO  YOU  WANT  TO  ENTER  ANOTHER  TITLE  (  Y  or  N  )  "TO 
PICK 

DO  WHILE  PICK="Y” . OR. PICK="y" 

CLEAR 


ACCEPT  "ENTER  TITLE  "  TO  A 
APPEND  FROM  &NAME  FOR  Attitle 
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ACCEPT  "DO  YOU  WANT  TO  ENTER  ANOTHER  TITLE  (  Y  or  N)  "  TO 

PICK 

ENDDO 

END  IF 

IF  NUM="5" 

COPY  STRUCTURE  TO  TEMP  FIELDS  SF'ECl 

SELECT  B 

USE  TEMP 

APPEND 

SELECT  A 

USE  &NAME 

JOIN  WITH  TEMP  TO  TEMPI  FOR  SPEC1=B->SPEC1 .  OR.  SF'EC2=B- >SF'EC  1 
.  OR.  SF‘EC3=B- >SF'EC  1 .  OR.  SF'EC4=B->SPEC1 .  OR .  SPEC5=B- >SPEC  1 
JOIN  WITH  TEMP  TO  T  FOR  SPEC6=B- >SPEC 1 . OR. SPEC7=B- >SPEC 1 . OR . 
SF'EC8=B- >SF'EC  1 .  OR .  SF'EC9=B-  >SPEC  1 .  OR .  SPEC  1 0=B-  >SPEC  1 
CLOSE  DATABASES 
USE  TEMPI 

APPEND  FROM  T 
ERASE  TEMP. DBF 
ERASE  T . DBF 

IF  FILE < "TEMPO. DBF" )=  .T. 

ERASE  TEMF'2.  DBF 
END  I  F 
END  IF 
IF  N|JM="6" 


COPY  STRUCTURE  TO  TEMP  FIELDS  ENDF'Tl 

SELECT  B 

USE  TEMP 

APPEND 

SELECT  A 

USE  ?vNAME 

JOIN  WITH  TEMP  TO  TEMPI  FOR  ENDF'T  1  =B- >ENDPT  1  .OR. 

ENDF  T2=B-  ENDF'Tl .  OR.  ENDPT3=B~  .'ENDF'Tl .  OR.  ENDF'T4=B- >ENDPT  1 .  OR. 
ENDpT5=B- >ENDF'T  1 .  OR .  ENDF'T6=B- >ENDPT  1 .  OR.  ENDPT7=B- >ENDPT  1 
JOIN  WITH  TEMP  TO  T  FOR  ENDPT8=B->ENDPT  1 .  OR.  ENDPT9=B~>ENDF'T  1 
.  OR .  ENDF'T  1  G=B- >ENDPT  1 .  OR .  ENDF'T  1 1  =B->ENDF’T  1  .  OR .  ENDF'T  1 2=B-  >ENDPT  1 
.  OR .  ENDF'T  1 3=B- :  ENDF'T  1 .  OR .  ENDF'T  1 4=B-  >ENDF'T  1 .  OR .  ENDF'T  1 5=B-  >ENDF'T  1 
JOIN  WITH  TEMP  TO  E  FOR  ENDF'T  1  fc=B- >ENDF'T  1 .  OR.  ENDF'T  1 7=B— >ENDF'T  1 
.  OR .  ENDF'T  1 8=B-  >ENDF'T  1 .  OR .  ENDF'T  1 9=B-  >ENDF'T  1 .  OR .  ENDF'T20=B-  >ENDF'T  1 
.  OR.  ENDPT21  =B-  >ENDF'T  1 .  OR.  ENDPT22=B->ENDF'T1 .  OR.  ENDF'T23=B- >ENDF'T  1 
JOIN  WITH  TEMP  TO  F  FOR  ENDF'T24=B- >ENDF'T  1 .  OR.  ENDF'T25=B— >ENDF'T1 
.  OR.  ENDPT26=B-.:  ENDF'Tl .  OR.  ENDPT27=B- >ENDF'T  1 .  OR.  ENDF'T28=B->ENDF'T  1 
.  OR .  ENDF'T  29=B-  :  ENDPT 1 .  OR .  ENDF'T30=B->ENDF’T  1 


CLOSE  DATABASES 
USE  TEMPI 
APPEND  FROM  T 
APPEND  FROM  E 
APPEND  FROM  F 
ERASE  E . DBF 
ERASE  F. DBF 
ERASE  TEMP. DBF 
ERASE  T . DBF 
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IF  FILE  (  "TEMF'2.  DBF"  )  =  .T. 

ERASE  TEMF'2.  DBF 
END  IF 
END  IF 
CLEAR 

IF  LOGIC="OR " . OR. LOG I C=" or " 

APPEND  FROM  TEMF'3 
ERASE  TEMF'3.  DBF 
ENDIF 

—y 

ACCEPT  MDO  YOU  WANT  TO  SEARCH  ANOTHER  CATEGORY  ?  (  Y  or  N) 
SEARCH 

IF  SEARCH” " Y " . OR . SE ARCH= " y " 

ACCEPT  "WHICH  TYPE  OF  LOGIC  SHOULD  BE  USED  (AND  or  DR)  "  TO 
LOGIC 

IF  LOGIC="AND” . OR. LOGIC= " and " 

USE 

RENAME  TEMPI.  DBF  TO  TEMF'2.  DBF 

STORE  "TEMF'2"  TO  NAME 

ENDIF 

IF  LOG I C=" OR" . OR. LOGIC="or " 

USE 

RENAME  TEMPI.  DBF  TO  TEMF'3.  DBF 
STORE  ELFS'  TO  NAME 
ENDIF 
ENDIF 
ENDDO 
USE  TEMPI 

IF  FILE  (  "TEMF'2.  DBF"  )  =  .T. 

ERASE  TEMF'2.  DBF 
ENDIF 

GOTO  BOTTOM 
IF  RECNO  0=1 
USE 

RENAME  TEMPI.  DBF  TO  ?<F  ILE.  .  DBF 

USE  S<FILE 

ENDIF 

TF  RECNO O  1 

SORT  TO  ?'F  I LE  ON  ELFNUM 

USE  S'F  I  LE 

ERASE  TEMPI. DBF 

ENDIF 

GO  BOTTOM 

IF  title='  ' . AND. el  4 num= ' 

CLEAR 

«  12,10  SAY  "NO  RECORDS  MEET  THE  SPECIFIED  CRITERIA." 

WAIT  TO  continue 
RETURN  TO  MASTER 
ENDIF 

RETURN  IIT  RESEARCH  INSTITUTE 
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ELFDATA.PRG 
DATA  ENTRY  PROGRAM 
(page  1  of  2) 


*  ELFDATA. FRG 
SET  TALK  OFF 
SET  ECHO  OFF 
CLEAR 

SET  BELL  OFF 

©  9,5  SAY  "  TYPE  S  TO  STOP  DATA  ENTRY" 

©  19,1  SAY  " 

WAIT  TO  continue 

DO  WHILE  continue; >"S" . AND. conti nue<  >"s" 

CLEAR 

APPEND  BLANK 

©1,1  SAY  "ENTER  UP  TO  5  SUBJECT  CATEGORIES:" 

©  1,36  GET  subcat  1 
©  2,36  GET  subcat2 
©  3,36  GET  subcat3 
©  4,36  GET  subcat 4 
©  5,36  GET  subcatS 
©  7,1  SAY  "ENTER  AUTHOR:" 

©  7,15  GET  author 
©  12,1  SAY  "ENTER  TITLE:" 

©  12,14  GET  title 

©  17,1  SAY  "ENTER  PUBLICATION  DATE:" 

©  17,25  GET  date 
©  19,1  SAY  "LANGUAGE:" 

©  19,11  GET  1 ang 

©  19,28  SAY  "ABSTRACT:" 

©  19,37  GET  absl 

©  19,58  SAY  "INDEX  #: " 

©  19,67  GET  el-fnum 

@21,1  SAY  "ENTER  SOURCE:" 

©  21,15  GET  source 

READ 

CLEAR 

©  2,1  SAY  "ENTER  UP  TO  30  END  POINTS:" 

@3,2  GET  endptl 
©  3,42  GET  endpt2 
©  4,2  GET  ©ndpt3 
©  4,42  GET  endpt4 
©  5,2  GET  endptS 
©  5,42  GET  endpt6 
@6,2  GET  endpt7 
©  6,42  GET  endptS 
©  7,2  GET  endpt9 
©  7,42  GET  endptlO 
@8,2  GET  endptll 
©  8,42  GET  endpt 1 2 
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ELFDATA.PRG 
DATA  ENTRY  PROGRAM 
(page  2  of  2) 


@  9,2  GET  endpt 1 3 
@  9,42  GET  endpt 1 4 
@  10,2  GET  endpt 15 
@  10,42  GET  endpt 16 
@  11,2  GET  endpt 1 7 
@  11,42  GET  endpt  1 8 
@  12,2  GET  endpt  19 
@  12,42  GET  endpt 20 
@  13,2  GET  endpt21 
@  13,42  GET  endpt22 
@  14,2  GET  endpt23 
@  14,42  GET  endpt 24 
@  15,2  GET  endpt25 
@  15,42  GET  endpt26 
@  16,2  GET  endpt 27 
Cp  16,42  GET  endpt2G 
@  17,2  GET  endpt29 
@  17,42  GET  endpt30 
READ 
CLEAR 

@  3,1  SAY  "ENTER  UP  TO  10  SPECIES:" 

@  3,28  GET  specl 
@4,28  GET  spec 2 
@5,28  GET  spec 3 
@  6,28  GET  spec4 
@  7,28  GET  spec5 
@  8,28  GET  specs 
@  9,28  GET  spec7 
@  10,28  GET  specB 
@  11,28  GET  spec9 
@  12,28  GET  spec  10 
READ 

@  20,5  SAY  "  TYPE  S  TO  STOP  DATA  ENTRY" 

WAIT  TO  continue 

ENDDO 

RETURN 
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ELFSUM.PRG 

SUMMARY  REPORT  PROGRAM 
(page  1  of  2) 


* 

SET  HEADING  OFF 
SET  SAFETY  OFF 

*  ELFSUM.PRG  This  program  prints  out  the  ELF  database 

summary. 

*  07/01/85  lmk 
SET  TALK  OFF 
SET  ECHO  OFF 
CLEAR 

@  0,1  SAY  "READY  PRINTER.  HIT  SPACE  BAR  TO  PRINT." 

WAIT 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

??  CHR  ( 27  )  +  '  @  ' 

??  CHR ( 27 )  +  ' C ' +CHR  <  66 ) 

??  CHR (27) + 'Q '+CHR (233) 

??  CHR (15) 

STORE  "  1  "  TO  PG 

GOTO  TOP 

DO  WHILE  .NOT. EOF <) 

STORE  2  TO  C 
@  0,1  SAY  "PAGE" 

@  0,7  SAY  pg 

@  0,86  SAY  "ELF  BIOLOGICAL  EFFECTS  LITERATURE  DATABASE  SUMMARY" 
@  0,211  SAY  "DATE" 

®  0,216  SAY  DTOC (date ( ) ) 

@1,1  SAY  " - 

@  1,56  SAY  " - 

&  1,111  SAY  " - 

@  1 , 166  SAY  " - 

&  1,221  SAY  " - " 

DO  WHILE  C< 60 

@  C,1  SAY  "ELF  LIBRARY  NUMBER:" 

@  C ,  21  SAY  el-fnum 
@  C , 62  SAY  "DATE:" 

@  C , 68  SAY  date 

<§  C  ,  1 07  SAY  "LANGUAGE:" 

@  C, 1 17  SAY  lang 
STORE  C+l  TO  C 
@  C,1  SAY  "AUTHOR:" 

@  C,9  SAY  author 
STORE  C+l  TO  C 
@  C, 1  SAY  "TITLE: " 

@  C,8  SAY  title 
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SUmARY  REPORT  PROGRAM 
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STORE  C+l  TO  C 

@  C,  1  SAY  11 - 

«  C,56  SAY  " - 

@  C , 1 1 1  SAY  " - 

<2  C,  166  SAY  " - 

9  C , 221  SAY  " - 

STORE  C+l  TO  C 

SKIP 

IF  EOF ( ) 

EJECT 

SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
RETURN 
END  IF 
ENDDO 

STORE  VAL  <PG )  TO  VALF'G 
STORE  VALPG+1  TO  VALPG 
STORE  STR ( VALPG , 5 )  TO  PG 
ENDDO 
EJECT 

SET  PRINT  OFF 

SET  DEVICE  TO  SCREEN 

RETURN 
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STANDARD  REPORT  PROGRAM 
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*  ELFSTAN. PRG 

SET  ECHO  OFF 

SET  TALK  OFF 

SET  PRINT  ON 

SET  DEVICE  TO  PRINT 

??  CHR ( 27 )  +  '  C  ' +CHR (51) 

??  CHR ( 27 )  +  '  Q  ' +CHR  < 1 66 ) 

??  CHR (15) 

STORE  M  1"  TO  PG 
GOTO  TOP 

DO  WHILE  .NOT. EOF <) 

STORE  2  TO  C 
@0,1  SAY  "PAGE" 

@0,7  SAY  pg 

@  0,57  SAY  "ELF  BIOLOGICAL  EFFECTS  LITERATURE  DATABASE" 
@  0,149  SAY  "DATE" 

@  O, 155  SAY  date ( ) 

@1,1  SAY  " - 

@  1,56  SAY  " - 

@  1,111  SAY  " - 

DO  WHILE  C< 30 
@  C,1  SAY  "AUTHOR (S) : " 

@  C,12  SAY  author 
STORE  C+l  TO  C 
@  C,1  SAY  "TITLE:" 

@  C, 8  SAY  title 
STORE  C+l  TO  C 

@  C,1  SAY  "PUBLICATION  DATE I " 

@  C, 19  SAY  date 
@  C,55  SAY  "LANGUAGE:" 

@  C,65  SAY  lang 
@  C , 90  SAY  "ABSTRACT:" 

@  C , 1 00  SAY  absl 
@  C , 1 28  SAY  "INDEX  NUMBER:" 

@  C,  142  SAY  el-fnum 
STORE  C+2  TO  C 
@  C,1  SAY  "SOURCE:" 

@  C,9  SAY  source 
STORE  C+l  TO  C 

@  C,7  SAY  "SUBJECT  CATEGORIES" 

@  C ,81  SAY  "END  POINTS" 

@  C , 1 49  SAY  "SPECIES" 

STORE  C+l  TO  C 

@  C,  1  SAY  " -  - 

@  C,56  SAY  " - 

@  C,  1 1 1  SAY  " -  - 

STORE  C+l  TO  C 
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e  C,2  SAY  subcat  1 
0  C,36  SAY  endptl 
«  C,72  SAY  endptll 
«  C ,  1 06  SAY  endpt21 
@  C,143  SAY  sped 
STORE  C+l  TO  C 
0  C,2  SAY  subcat2 
0  C,36  SAY  endpt2 
0  C,72  SAY  endptl 2 
0  C,106  SAY  endpt22 
®  C, 143  SAY  spec2 
STORE  C+l  TO  C 
@  C,2  SAY  subcat3 
0  C,36  SAY  endpt3 
a  C,72  SAY  endptl 3 
a  C , 1 06  SAY  endpt23 
a  C , 1 43  SAY  spec 3 
STORE  C+l  TO  C 
a  C,2  SAY  subcat 4 
a  C,36  SAY  endpt4 
a  C,72  SAY  endptl 4 
®  C, 106  SAY  endpt24 
a  C , 1 43  SAY  spec4 
STORE  C+l  TO  C 
a  C,2  SAY  subcatC 
a  C,36  SAY  endptS 
a  C , 72  SAY  endpt 15 
a  C,106  SAY  endpt25 
a  C , 1 43  SAY  spec 5 
STORE  C+l  TO  C 
a  C,36  SAY  endpt6 
a  C,72  SAY  endpt 16 
a  C , 106  SAY  endpt26 
a  C , 143  SAY  spec6 
STORE  C+l  TO  C 
8  C,36  SAY  endpt7 
a  C,72  SAY  endpt 17 
0  C 1 1 06  SAY  endpt27 
0  C, 143  SAY  spec 7 
STORE  C+l  TO  C 
0  C,36  SAY  endpt8 
0  C , 72  SAY  endpt 18 
0  C , 1 06  SAY  endpt 28 
0  Ct143  SAY  spec8 
STORE  C+l  TO  C 
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@  C ,36  SAY  endpt9 
@  C,72  SAY  endpt 1 9 
@  C , 1 06  SAY  endpt29 
@  C , 143  SAY  spec9 
STORE  C+l  TO  C 
«  C , 36  SAY  endpt 10 
@  C,72  SAY  endpt20 
@  C,106  SAY  endpt30 
@  C , 143  SAY  spec  10 
STORE  C+l  TO  C 
@  C, 1  SAY 


STORE  C+l  TO  C 

SKIP 

IF  EOF ( ) 

EJECT 

SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
RETURN 
END  IF 
ENDDO 

STORE  VAL(PG)  TO  VALPG 
STORE  VALPG+1  TO  VALPG 
STORE  STR (VALPG ,5)  TO  PG 
ENDDC 
EJECT 

SET  PRINT  OFF 

SET  DEVICE  TO  SCREEN 

RETURN 
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RECORD  DISPLAY  PROGRAM 


*  ELFDISP.PRG  This  program  displays  the  following  fields  on 

the  screen:  Index  number,  language,  author, 
date,  title,  and  subject  categories. 

*  7/10/85  lmk 

SET  DEVICE  TD  SCREEN 
GOTO  TOP 

DO  WHILE  .NOT. EOF () 

CLEAR 

@1,1  SAY  "INDEX  NUMBER 
@  1,16  GET  elfnum 
@  1,40  SAY  "ABSTRACT  :" 

@  1 ,52  GET  absl 

@3,1  SAY  "PUBLICATION  DATE  :" 

@  3,20  GET  date 
@  3,45  SAY  "LANGUAGE:" 

@  3,55  GET  1 ang 
@5,1  SAY  "TITLE  : " 

@5,9  GET  title 
@  10,1  SAY  "AUTHOR  :" 

@  10,10  GET  author 
@  15,1  SAY  "SOURCE  :" 

@  15,10  GET  source 
@  20,1  SAY  " SUBCAT  1" 

@  20,9  GET  subcat  1 
@  20,40  SAY  " SUBCAT 4 " 

@  20,50  GET  subcat 4 
@21,1  SAY  "SUBCAT2" 

@  21,9  GET  subcat2 
@  21,40  SAY  "SUBCAT5" 

@  21,50  GET  subcatS 
@  22,1  SAY  "SUBCAT3" 

@  22,9  GET  subcatS 
Si:  I P 

WAIT  TO  continue 

ENDDO 

RETURN 


I  IT  RESEARCH  INSTITUTE 
B-14 


IITRI  E06549-20 


END 

FILMED 

irt* 


DTIC 


